home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 019 / ratio16a.arc / RSB2-RAT.MRG < prev    next >
Text File  |  1988-04-12  |  3KB  |  67 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RSB2-CLR.MRG to produce RSB2MODS.MRG
  3. * RSB2-CLR.MRG:  Date 4-12-1988  Size 16408 bytes
  4. * ------------[ Created 04-12-1988 20:07:34 ]------------
  5. * ------[ first line different ]------
  6. * REPLACING old line(s) by new
  7. * INSERTING new line(s)
  8. 10600 USER.FILE.INDEX = ORIG.USER.FILE.INDEX
  9.       CALL TIMEREMAIN (TIME.REMAINING!)
  10.       Q! = ELAPSED.TIME + _
  11.            ((SECONDS.PER.SESSION! - TIME.CREDITS!)/ 60) - _
  12.            TIME.REMAINING!
  13.       IF Q! < -32000 THEN _
  14.          Q! = -32000 _
  15.       ELSE IF Q! > 32000 THEN _
  16.          Q! = 32000
  17.       IF USER.FILE.INDEX < 1 THEN _
  18.          GOTO 10607
  19.       UPDATE.DEFAULTS = (ACTIVE.USER.FILE$ = ORIG.USER.FILE$)
  20.       ACTIVE.USER.FILE$ = ORIG.USER.FILE$
  21.       SUBROUTINE.PARAMETER = 6
  22.       CALL FILELOCK
  23.       CALL OPENUSER (HIGHEST.USER.RECORD)
  24.       FIELD 5,31 AS USER.NAME$, _
  25.               15 AS PASSWORD$, _
  26.                2 AS SECURITY.LEVEL$, _
  27.               14 AS USER.OPTIONS$,  _
  28.               24 AS CITY.STATE$, _
  29. * ------[ first line different ]------
  30.            3 AS MACHINE.TYPE$, _                                   'RATIO
  31.            4 AS TODAY.DL$, _                                       'RATIO
  32.            4 AS TODAY.BYTES$, _                                    'RATIO
  33.            4 AS DL.BYTES$, _                                       'RATIO
  34.            4 AS UL.BYTES$, _                                       'RATIO
  35.               14 AS LAST.DATE.TIME.ON$, _
  36.                3 AS LIST.NEW.DATE$, _
  37.                2 AS USER.DOWNLOADS$, _
  38.                2 AS USER.UPLOADS$, _
  39.                2 AS ELAPSED.TIME$
  40. * REPLACING old line(s) by new
  41. 10605 LSET USER.DOWNLOADS$ = MKI$(DOWNLOADS)
  42.       LSET USER.UPLOADS$ = MKI$(UPLOADS)
  43. * ------[ first line different ]------
  44.       LSET TODAY.DL$ = MKS$(DL.TODAY!)                                 'RATIO
  45.       LSET TODAY.BYTES$ = MKS$(BYTES.TODAY!)                           'RATIO
  46.       LSET DL.BYTES$ = MKS$(DLBYTES!)                                  'RATIO
  47.       LSET UL.BYTES$ = MKS$(ULBYTES!)                                  'RATIO
  48.       LSET ELAPSED.TIME$ = MKI$(Q!)
  49.       IF ADJUSTED.SECURITY THEN _
  50.          LSET SECURITY.LEVEL$ = MKI$(USER.SECURITY.LEVEL)
  51.       PUT 5,USER.FILE.INDEX
  52. * REPLACING old line(s) by new
  53. 20726 N$ = " >> uploaded << "
  54.       UPLOADS = UPLOADS + 1
  55. * ------[ first line different ]------
  56.       ULBYTES! = ULBYTES! + BYTES.IN.FILE#                             'RATIO
  57.       CALL MUZAK (7)
  58.       CALL TIMEREMAIN (TIME.REMAINING!)
  59.       X! = UPLOAD.TIME.FACTOR! * (TCA! - Q!)
  60.       TIME.CREDITS! = TIME.CREDITS! + X!
  61.       SECONDS.PER.SESSION! = SECONDS.PER.SESSION! + X!
  62.       X! = (X! - TCA! + Q!)/60.0
  63.       IF X! > 1.0 THEN _
  64.          CALL QTPUT ("Uploads are appreciated here.  For today your",1) : _
  65.          CALL QTPUT ("SESSION & DAILY time limits increased by"+STR$(X!)+" minutes",1)
  66.       EXIT SUB
  67.